home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlTabGetCurSel.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.9 KB  |  59 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiTab.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $tab, $tab0, $tab0OK, $tab0input, $tab1, $tab1combo, $tab1OK, $tab2, $tab2OK, $tab3, $tab4
  7. Dim $msg, $Status, $current, $button
  8.  
  9. GUICreate("Tab Get Current Selection", 300, 200)  ; will create a dialog box that when displayed is centered
  10.  
  11. GUISetBkColor(0x00E0FFFF)
  12. GUISetFont(9, 300)
  13.  
  14. $tab = GUICtrlCreateTab(10, 10, 200, 100, $TCS_MULTILINE)
  15.  
  16. $tab0 = GUICtrlCreateTabItem("tab0")
  17. GUICtrlCreateLabel("label0", 30, 80, 50, 20)
  18. $tab0OK = GUICtrlCreateButton("OK0", 20, 60, 50, 20)
  19. $tab0input = GUICtrlCreateInput("default", 80, 60, 70, 20)
  20. GUICtrlCreateTabItem("") ; end tabitem definition
  21.  
  22. $tab1 = GUICtrlCreateTabItem("tab----1")
  23. GUICtrlCreateLabel("label1", 30, 80, 50, 20)
  24. $tab1combo = GUICtrlCreateCombo("", 20, 60, 60, 40)
  25. GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; default Jon
  26. $tab1OK = GUICtrlCreateButton("OK1", 80, 60, 50, 20)
  27. GUICtrlCreateTabItem("") ; end tabitem definition
  28.  
  29. $tab2 = GUICtrlCreateTabItem("tab2")
  30. GUICtrlSetState(-1, $GUI_SHOW) ; will be display first
  31. GUICtrlCreateLabel("label2", 30, 80, 50, 20)
  32. $tab2OK = GUICtrlCreateButton("OK2", 140, 60, 50)
  33. GUICtrlCreateTabItem("") ; end tabitem definition
  34.  
  35. $tab3 = GUICtrlCreateTabItem("tab3")
  36. GUICtrlCreateTabItem("") ; end tabitem definition
  37.  
  38. $tab4 = GUICtrlCreateTabItem("tab4")
  39. GUICtrlCreateTabItem("") ; end tabitem definition
  40.  
  41. GUICtrlCreateLabel("label3", 20, 130, 50, 20)
  42.  
  43. $Status = GUICtrlCreateLabel("", 0, 180, 300, 20, BitOR($SS_SUNKEN, $SS_CENTER))
  44.  
  45. GUISetState()
  46. GUICtrlSetData($Status, "Current Selection: " & _GUICtrlTabGetCurSel ($tab))
  47.  
  48. ; Run the GUI until the dialog is closed
  49. While 1
  50.     $msg = GUIGetMsg()
  51.     Select
  52.         Case $msg = $GUI_EVENT_CLOSE
  53.             ExitLoop
  54.         Case $msg = $tab
  55.             GUICtrlSetData($Status, "Current Selection: " & _GUICtrlTabGetCurSel ($tab))
  56.     EndSelect
  57. WEnd
  58.  
  59.